home *** CD-ROM | disk | FTP | other *** search
/ Safarir 3 / SafTV-CD3.iso / pc / Bonus / Dessins Animés / static / jeux / tetris.swf / scripts / frame_27 / DoAction.as
Text File  |  2001-11-21  |  2KB  |  73 lines
  1. ny = "5";
  2. n3 = "0";
  3. nd = "0";
  4. while("1" < ny)
  5. {
  6.    ny -= "1";
  7.    nx = "0";
  8.    if(y + ny + "20" < "41")
  9.    {
  10.       yn = "1";
  11.       while(nx < "10")
  12.       {
  13.          nx += "1";
  14.          if(eval("c" add (nx + "20") add (y + ny + "20")) == "0")
  15.          {
  16.             yn = "0";
  17.          }
  18.       }
  19.       if(yn == "1")
  20.       {
  21.          n3 += "1";
  22.          nd += "1";
  23.       }
  24.       else if("0" < nd)
  25.       {
  26.          n = "0";
  27.          while(n < "10")
  28.          {
  29.             n += "1";
  30.             n2 = eval("c" add (n + "20") add (y + ny + "20"));
  31.             if(n2 != eval("c" add (n + "20") add (ny + y + "20" + nd)))
  32.             {
  33.                set("c" add (n + "20") add (ny + y + "20" + nd),n2);
  34.                if(n2 == "0")
  35.                {
  36.                   tellTarget("b" add (n + "20") add (ny + y + "20" + nd))
  37.                   {
  38.                      gotoAndStop(1);
  39.                   }
  40.                }
  41.                else
  42.                {
  43.                   tellTarget("b" add (n + "20") add (ny + y + "20" + nd))
  44.                   {
  45.                      gotoAndStop(eval("/:lev") + "1");
  46.                   }
  47.                }
  48.             }
  49.          }
  50.       }
  51.    }
  52. }
  53. if("0" < n3)
  54. {
  55.    call("delline");
  56.    sc += eval("sc" add n3) * lev;
  57.    line += n3;
  58.    if(lev < int(line / "10") + "1" and lev < "21")
  59.    {
  60.       lev += "1";
  61.       call("uplev");
  62.    }
  63. }
  64. if(n3 == "0" and y == "0")
  65. {
  66.    gotoAndStop(54);
  67. }
  68. else
  69. {
  70.    call("next");
  71.    gotoAndPlay(28);
  72. }
  73.